﻿Public Class PageSetting

    '设置报表的类型
    Public Enum ReportType
        English  '英语模块
        Japanese '日语模块
        Code     '代码统计模块
        SofeWare '软件模块
        WebSite  '网址模块
    End Enum

    Public Sub New()
        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()
    End Sub

    Public Sub New(ByVal type As ReportType)

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()
        If type = ReportType.English Then
            Using ce As New CrystalReportEnglish
                Me.txtLeft.Text = ce.PrintOptions.PageMargins.leftMargin
                Me.txtRight.Text = ce.PrintOptions.PageMargins.rightMargin
                Me.txtTop.Text = ce.PrintOptions.PageMargins.topMargin
                Me.txtBottom.Text = ce.PrintOptions.PageMargins.bottomMargin
            End Using
        End If


    End Sub

End Class
